﻿Public Class Explanations
    Inherits genExplanations

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal id As Integer)
        MyBase.New(id)
    End Sub

    Public Sub SaveOrGetIDByText()
        Dim dt As DataTable = Me.ListByExplanationText(Me.ExplanationText)
        If dt.Rows.Count > 0 Then
            Me.Construct(CInt(dt.Rows(0)("ExplanationID")))
        Else
            MyBase.Save()
        End If
    End Sub

End Class
